﻿Imports System.Windows.Forms

Public Class dlgDeleteValidator

#Region "Property"

    ''' <summary>
    ''' Thuộc tính lưu đối tượng xử lý các thao tác nghiệp vụ
    ''' </summary>
    ''' <remarks>Nguyễn Huy Thường added on 24/10/2010</remarks>
    Public Property BusinessObject() As BL.clsBLBase

    ''' <summary>
    ''' Thuộc tính lưu lý do xóa đối tượng
    ''' </summary>
    ''' <remarks>Nguyễn Huy Thường added on 26/02/2012</remarks>
    Public Property DeleteReason() As String

#End Region

#Region "Event"

    ''' <summary>
    ''' Khi form DeleteValidator được load thì load tên và giá trị của đối tượng cần xóa
    ''' </summary>
    ''' <remarks>Nguyễn Huy Thường added on 25/02/2012</remarks>
    Private Sub dlgDeleteValidator_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    End Sub

    ''' <summary>
    ''' Khi người dùng click vào nút OK thì kiểm tra các trường bắt buộc rồi thực hiện lệnh xóa
    ''' </summary>
    ''' <remarks>Nguyễn Huy Thường added on 25/02/2012</remarks>
    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
        Try
            If vldCheckInput.Validate.IsValid Then
                DeleteReason = txtDeleteReason.Text
                Me.DialogResult = System.Windows.Forms.DialogResult.OK
                Me.Close()
            End If
        Catch ex As Exception
            clscommon.ShowException(ex.Message)
        End Try
    End Sub

    ''' <summary>
    ''' Khi người dùng nhấn vào nút Cancel thì hủy bỏ lệnh xóa
    ''' </summary>
    ''' <remarks>Nguyễn Huy Thường added on 25/02/2012</remarks>
    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.Close()
    End Sub
#End Region
End Class
